home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•The School House•
/
Astromacronomer •••
/
BASIC Runtime
/
BASIC Runtime.rsrc
/
CODE_17.txt
< prev
next >
Wrap
Text File
|
1986-09-30
|
12KB
|
220 lines
# near model CODE resource
# jump table entries: 4032-4034 (3 of them)
00000000 526D FE4E addq.w [A5 - 0x1B2], 1
00000004 4E56 FFF8 link A6, -0x0008
00000008 2F0A move.l -[A7], A2
0000000A 2F2E 000C move.l -[A7], [A6 + 0xC]
0000000E 4EAD 0ABA jsr [A5 + 0xABA /* export_339 */]
00000012 45EE FFF8 lea.l A2, [A6 - 0x8]
00000016 4EAD 0AB2 jsr [A5 + 0xAB2 /* export_338 */]
0000001A 4EAD 0AAA jsr [A5 + 0xAAA /* export_337 */]
0000001E 42A7 clr.l -[A7]
00000020 A8D8 syscall NewRgn
00000022 245F movea.l A2, [A7]+
00000024 486E FFF8 pea.l [A6 - 0x8]
00000028 302E 000A move.w D0, [A6 + 0xA]
0000002C 4440 neg.w D0
0000002E 3F00 move.w -[A7], D0
00000030 302E 0008 move.w D0, [A6 + 0x8]
00000034 4440 neg.w D0
00000036 3F00 move.w -[A7], D0
00000038 2F0A move.l -[A7], A2
0000003A A8EF syscall ScrollRect
0000003C 2F0A move.l -[A7], A2
0000003E A927 syscall InvalRgn
00000040 2F0A move.l -[A7], A2
00000042 A8D9 syscall DisposRgn/DisposeRgn
00000044 245F movea.l A2, [A7]+
label00000046:
00000046 4E5E unlink A6
00000048 205F movea.l A0, [A7]+
0000004A 508F addq.l A7, 8
0000004C 536D FE4E subq.w [A5 - 0x1B2], 1
00000050 4ED0 jmp [A0]
fn00000052:
00000052 526D FE4E addq.w [A5 - 0x1B2], 1
00000056 4E56 0000 link A6, 0
0000005A 206E 0008 movea.l A0, [A6 + 0x8]
0000005E 2050 movea.l A0, [A0]
00000060 2028 0004 move.l D0, [A0 + 0x4]
label00000064:
00000064 4E5E unlink A6
00000066 205F movea.l A0, [A7]+
00000068 588F addq.l A7, 4
0000006A 536D FE4E subq.w [A5 - 0x1B2], 1
0000006E 4ED0 jmp [A0]
export_504:
00000070 526D FE4E addq.w [A5 - 0x1B2], 1
00000074 4E56 FFFC link A6, -0x0004
00000078 2F2E 000A move.l -[A7], [A6 + 0xA]
0000007C 61D4 bsr -0x2A /* 00000052 */
0000007E 2D40 FFFC move.l [A6 - 0x4], D0
00000082 7400 moveq.l D2, 0x00
00000084 342E 0008 move.w D2, [A6 + 0x8]
00000088 0442 0013 subi.w D2, 0x13
0000008C 6402 bcc +0x4 /* 00000090 */
label0000008E:
0000008E 7400 moveq.l D2, 0x00
label00000090:
00000090 0C42 0005 cmpi.w D2, 0x5
00000094 64F8 bcc -0x6 /* 0000008E */
00000096 2F02 move.l -[A7], D2
00000098 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000009C 2F2E 000A move.l -[A7], [A6 + 0xA]
000000A0 4EAD 0ADA jsr [A5 + 0xADA /* export_343 */]
000000A4 241F move.l D2, [A7]+
000000A6 4A80 tst.l D0
000000A8 6602 bne +0x4 /* 000000AC */
000000AA 4842 swap.w D2
label000000AC:
000000AC 2B42 FB5E move.l [A5 - 0x4A2], D2
000000B0 50ED FCF7 st [A5 - 0x309]
000000B4 2F2E FFFC move.l -[A7], [A6 - 0x4]
000000B8 4EAD 0892 jsr [A5 + 0x892 /* export_270 */]
label000000BC:
000000BC 4E5E unlink A6
000000BE 205F movea.l A0, [A7]+
000000C0 5C8F addq.l A7, 6
000000C2 536D FE4E subq.w [A5 - 0x1B2], 1
000000C6 4ED0 jmp [A0]
000000C8 526D FE4E addq.w [A5 - 0x1B2], 1
000000CC 4E56 0000 link A6, 0
000000D0 2F2E 000C move.l -[A7], [A6 + 0xC]
000000D4 4EAD 0ABA jsr [A5 + 0xABA /* export_339 */]
000000D8 4EAD 0AEA jsr [A5 + 0xAEA /* export_345 */]
000000DC 6014 bra +0x16 /* 000000F2 */
000000DE 526D FE4E addq.w [A5 - 0x1B2], 1
000000E2 4E56 0000 link A6, 0
000000E6 2F2E 000C move.l -[A7], [A6 + 0xC]
000000EA 4EAD 0ABA jsr [A5 + 0xABA /* export_339 */]
000000EE 4EAD 0AE2 jsr [A5 + 0xAE2 /* export_344 */]
label000000F2:
000000F2 2F00 move.l -[A7], D0
000000F4 2F00 move.l -[A7], D0
000000F6 3F2E 000A move.w -[A7], [A6 + 0xA]
000000FA A964 syscall SetControlMinimum/SetMinCtl
000000FC 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000100 A965 syscall SetControlMaximum/SetMaxCtl
00000102 6000 FF42 bra -0xBC /* 00000046 */
00000106 526D FE4E addq.w [A5 - 0x1B2], 1
0000010A 4E56 0000 link A6, 0
0000010E 2F2E 000A move.l -[A7], [A6 + 0xA]
00000112 4EAD 0ABA jsr [A5 + 0xABA /* export_339 */]
00000116 4EAD 0AEA jsr [A5 + 0xAEA /* export_345 */]
0000011A 6014 bra +0x16 /* 00000130 */
0000011C 526D FE4E addq.w [A5 - 0x1B2], 1
00000120 4E56 0000 link A6, 0
00000124 2F2E 000A move.l -[A7], [A6 + 0xA]
00000128 4EAD 0ABA jsr [A5 + 0xABA /* export_339 */]
0000012C 4EAD 0AE2 jsr [A5 + 0xAE2 /* export_344 */]
label00000130:
00000130 2F00 move.l -[A7], D0
00000132 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000136 A963 syscall SetControlValue/SetCtlValue
00000138 6082 bra -0x7C /* 000000BC */
0000013A 526D FE4E addq.w [A5 - 0x1B2], 1
0000013E 4E56 FFF8 link A6, -0x0008
00000142 2F0A move.l -[A7], A2
00000144 4EAD 0AC2 jsr [A5 + 0xAC2 /* export_340 */]
00000148 670C beq +0xE /* 00000156 */
0000014A 4EAD 0AEA jsr [A5 + 0xAEA /* export_345 */]
0000014E 610C bsr +0xE /* 0000015C */
00000150 4EAD 0AE2 jsr [A5 + 0xAE2 /* export_344 */]
00000154 6106 bsr +0x8 /* 0000015C */
label00000156:
00000156 245F movea.l A2, [A7]+
00000158 6000 FF0A bra -0xF4 /* 00000064 */
fn0000015C:
0000015C 2040 movea.l A0, D0
0000015E 2450 movea.l A2, [A0]
00000160 2D6A 0008 FFF8 move.l [A6 - 0x8], [A2 + 0x8]
00000166 2D6A 000C FFFC move.l [A6 - 0x4], [A2 + 0xC]
0000016C 486E FFF8 pea.l [A6 - 0x8]
00000170 3F2E 000A move.w -[A7], [A6 + 0xA]
00000174 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000178 A8A8 syscall OffsetRect
0000017A 2F2A 001C move.l -[A7], [A2 + 0x1C]
0000017E 3F2E 000A move.w -[A7], [A6 + 0xA]
00000182 3F2E 0008 move.w -[A7], [A6 + 0x8]
00000186 A8E0 syscall OffsetRgn/OfsetRgn
00000188 256E FFF8 0008 move.l [A2 + 0x8], [A6 - 0x8]
0000018E 256E FFFC 000C move.l [A2 + 0xC], [A6 - 0x4]
00000194 4E75 rts
export_505:
00000196 526D FE4E addq.w [A5 - 0x1B2], 1
0000019A 4E56 FFF8 link A6, -0x0008
0000019E 2F0A move.l -[A7], A2
000001A0 45EE FFF8 lea.l A2, [A6 - 0x8]
000001A4 4EAD 0AD2 jsr [A5 + 0xAD2 /* export_342 */]
000001A8 4EAD 0AE2 jsr [A5 + 0xAE2 /* export_344 */]
000001AC 6114 bsr +0x16 /* 000001C2 */
000001AE 4EAD 0ACA jsr [A5 + 0xACA /* export_341 */]
000001B2 4EAD 0AEA jsr [A5 + 0xAEA /* export_345 */]
000001B6 610A bsr +0xC /* 000001C2 */
000001B8 245F movea.l A2, [A7]+
000001BA 4E5E unlink A6
000001BC 536D FE4E subq.w [A5 - 0x1B2], 1
000001C0 4E75 rts
fn000001C2:
000001C2 2F00 move.l -[A7], D0
000001C4 2F00 move.l -[A7], D0
000001C6 2F00 move.l -[A7], D0
000001C8 302A 0006 move.w D0, [A2 + 0x6]
000001CC 906A 0002 sub.w D0, [A2 + 0x2]
000001D0 3F00 move.w -[A7], D0
000001D2 302A 0004 move.w D0, [A2 + 0x4]
000001D6 9052 sub.w D0, [A2]
000001D8 3F00 move.w -[A7], D0
000001DA A95C syscall SizeControl
000001DC 3F2A 0002 move.w -[A7], [A2 + 0x2]
000001E0 3F12 move.w -[A7], [A2]
000001E2 A959 syscall MoveControl
000001E4 A957 syscall ShowControl
000001E6 4E75 rts
export_506:
000001E8 526D FE4E addq.w [A5 - 0x1B2], 1
000001EC 4E56 0000 link A6, 0
000001F0 48E7 1C30 movem.l -[A7], D3,D4,D5,A2,A3
000001F4 4267 clr.w -[A7]
000001F6 A973 syscall StillDown
000001F8 301F move.w D0, [A7]+
000001FA 6750 beq +0x52 /* 0000024C */
000001FC 266E 000C movea.l A3, [A6 + 0xC]
00000200 7600 moveq.l D3, 0x00
00000202 7800 moveq.l D4, 0x00
00000204 4267 clr.w -[A7]
00000206 2F0B move.l -[A7], A3
00000208 A960 syscall GetControlValue/GetCtlValue
0000020A 3A1F move.w D5, [A7]+
0000020C 4267 clr.w -[A7]
0000020E 2F0B move.l -[A7], A3
00000210 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000214 42A7 clr.l -[A7]
00000216 A968 syscall TrackControl
00000218 548F addq.l A7, 2
0000021A 4267 clr.w -[A7]
0000021C 2F0B move.l -[A7], A3
0000021E A960 syscall GetControlValue/GetCtlValue
00000220 301F move.w D0, [A7]+
00000222 9045 sub.w D0, D5
00000224 3A00 move.w D5, D0
00000226 2F0B move.l -[A7], A3
00000228 6100 FE28 bsr -0x1D6 /* 00000052 */
0000022C 2440 movea.l A2, D0
0000022E 2F0A move.l -[A7], A2
00000230 2F0B move.l -[A7], A3
00000232 4EAD 0ADA jsr [A5 + 0xADA /* export_343 */]
00000236 4A80 tst.l D0
00000238 6704 beq +0x6 /* 0000023E */
0000023A 3805 move.w D4, D5
0000023C 6002 bra +0x4 /* 00000240 */
label0000023E:
0000023E 3605 move.w D3, D5
label00000240:
00000240 3B43 FB62 move.w [A5 - 0x49E], D3
00000244 3B44 FB64 move.w [A5 - 0x49C], D4
00000248 50ED FCF7 st [A5 - 0x309]
label0000024C:
0000024C 4CDF 0C38 movem.l D3,D4,D5,A2,A3, [A7]+
00000250 6000 FDF4 bra -0x20A /* 00000046 */